Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/wildcat/heathwc4.zip/HEATHEN.WCX

Wildcat! WCX | 1996-04-04 | 35KB | 2,087 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  35407 bytes  03/09/122  08:19:20am
'! Code Segment Size  :22097 bytes
'! Data Segment Size  :5470 bytes
'! String Segment Size:13310 bytes
'! Compiled with WCC version ? 019C017B

      Type Type30
        s0 As String*15
        s15 As String*15
        s30 As String*15
        s45 As String*15
        s60 As String*15
        s75 As String*15
        s90 As String*15
        s105 As String*15
        s120 As String*15
        s135 As String*15
        s150 As String*15
        s165 As String*15
      End Type

      Type Type29
        s0 As String*15
        s15 As String*15
        s30 As String*15
        s45 As String*15
        s60 As String*15
        s75 As String*15
        s90 As String*15
        s105 As String*15
        s120 As String*15
        s135 As String*15
        s150 As String*15
        s165 As String*15
      End Type

      Type Type28
        Filler0(1 To 15) As Byte
        s15 As String*15
      End Type

      Type Type27
        s0 As String*15
        s15 As String*15
        s30 As String*15
        l45 As Long
        i49 As Integer
        i51 As Integer
        i53 As Integer
        s55 As String*8
      End Type

      Type Type26
        s0 As String*15
        s15 As String*15
        Filler30(1 To 10) As Byte
        s40 As String*15
        Filler55(1 To 7) As Byte
        s62 As String*7
        Filler69(1 To 6) As Byte
        s75 As String*1
        s76 As String*3
        s79 As String*3
        Filler82(1 To 3) As Byte
        s85 As String*3
        Filler88(1 To 13) As Byte
        i101 As Integer
        i103 As Integer
        i105 As Integer
        Filler107(1 To 11) As Byte
        s118 As String*15
        Filler133(1 To 9) As Byte
        s142 As String*4
        s146 As String*4
      End Type

      Declare Function Func17333(l65534 As Long, l65532 As Long) As Integer
      Declare Sub Sub17805
      Declare Sub Sub17930
      Declare Sub Sub18084
      Declare Sub Sub18170
      Declare Sub Sub18245
      Declare Sub Sub18319
      Declare Sub Sub18871
      Declare Sub Sub18921
      Declare Sub Sub18955
      Declare Sub Sub19319
      Declare Sub Sub19494
      Declare Sub Sub19787
      Declare Sub Sub20713
      Declare Sub Sub21639

      Dim s4463 As String
      Dim l4467 As Long
      Dim s4471 As String
      Dim s4475 As String
      Dim s4479 As String*1
      Dim i4480 As Integer
      Dim i4482 As Integer
      Dim i4484 As Integer
      Dim i4486 As Integer
      Dim t26_4488 As Type26
      Dim t28_4660 As Type28
      Dim t27_4832 As Type27
      Dim t29_4895 As Type29
      Dim t30_5075 As Type30
      Dim s5255 As String*63
      Dim i5318 As Integer
      Dim i5320 As Integer
      Dim s5322 As String*1
      Dim s5323 As String
      Dim s5327 As String
      Dim s5331 As String
      Dim i5337 As Integer
      Dim i5339 As Integer
      Dim r5341 As Real
      Dim r5347 As Real
      Dim s5353 As String*4
      Dim s5357 As String*3
      Dim i5360 As Integer
      Dim i5362 As Integer
      Dim i5364 As Integer
      Dim s5366 As String*1
      Dim s5367 As String
      Dim i5371 As Integer
      Dim s5373 As String*1
      Dim s5374 As String*15
      Dim s5389 As String*1
      Dim s5390 As String*1
      Dim d5391 As Date
      Dim s5393 As String
      Dim s5397 As String
      Dim i5405 As Integer
      Dim i5407 As Integer
      Dim i5409 As Integer
      Dim i5411 As Integer
      Dim i5413 As Integer
      Dim i5415 As Integer
      Dim i5417 As Integer
      Dim i5419 As Integer
      Dim i5421 As Integer
      Dim i5423 As Integer
      Dim i5425 As Integer
      Dim i5427 As Integer
      Dim s5429 As String
      Dim s5433 As String*15
      Dim i5448 As Integer
      Dim i5450 As Integer
      Dim i5452 As Integer
      Dim s5454 As String
      Dim l5458 As Long
      Dim l5462 As Long
      Dim i5466 As Integer
      Dim i5468 As Integer

      Dim l65302_ As Long
      Dim i65306_ As Integer
      Dim l65308_ As Long
      Dim i65312_ As Integer
      Dim l65314_ As Long
      Dim i65318_ As Integer
      Dim l65320_ As Long
      Dim i65324_ As Integer
      Dim l65326_ As Long
      Dim i65330_ As Integer
      Dim l65332_ As Long
      Dim i65336_ As Integer
      Dim l65338_ As Long
      Dim i65342_ As Integer
      Dim l65344_ As Long
      Dim i65348_ As Integer
      Dim l65350_ As Long
      Dim i65354_ As Integer
      Dim l65356_ As Long
      Dim i65360_ As Integer
      Dim l65362_ As Long
      Dim i65366_ As Integer
      Dim l65368_ As Long
      Dim i65372_ As Integer
      Dim l65374_ As Long
      Dim i65378_ As Integer
      Dim l65380_ As Long
      Dim i65384_ As Integer
      Dim l65386_ As Long
      Dim i65390_ As Integer
      Dim l65392_ As Long
      Dim i65396_ As Integer
      Dim l65398_ As Long
      Dim i65402_ As Integer
      Dim l65404_ As Long
      Dim i65408_ As Integer
      Dim l65410_ As Long
      Dim i65414_ As Integer
      Dim l65416_ As Long
      Dim i65420_ As Integer
      Dim l65422_ As Long
      Dim i65426_ As Integer
      Dim l65428_ As Long
      Dim i65432_ As Integer
      Dim l65434_ As Long
      Dim i65438_ As Integer
      Dim l65440_ As Long
      Dim i65444_ As Integer
      Dim l65446_ As Long
      Dim i65450_ As Integer
      Dim l65452_ As Long
      Dim i65456_ As Integer
      Dim l65458_ As Long
      Dim i65462_ As Integer
      Dim l65464_ As Long
      Dim i65468_ As Integer
      Dim l65470_ As Long
      Dim i65474_ As Integer
      Dim l65476_ As Long
      Dim i65480_ As Integer
      Dim l65482_ As Long
      Dim i65486_ As Integer
      Dim l65488_ As Long
      Dim i65492_ As Integer
      Dim l65494_ As Long
      Dim i65498_ As Integer
      Dim l65500_ As Long
      Dim i65504_ As Integer
      Dim l65506_ As Long
      Dim i65510_ As Integer
      Dim l65512_ As Long
      Dim i65516_ As Integer
      Dim l65518_ As Long
      Dim i65522_ As Integer
      Dim l65524_ As Long '! Temporary
      Dim s65528_ As String
      Dim s65532_ As String

      s5397 = Str(Node)
      s4479 = "N"
      CurrentDate d5391
      s5393 = FormatDate(d5391, "mm/dd/yy")
      s5373 = "N"
      EnablePages 0
      s5323 = "          @07@─────@08@══════════@07@──────"
      i4486 = FreeFile
      s4471 = ProgPath + "heathen.cfg"
      Open s4471 For Input As i4486
      Input #i4486, s4463
      Input #i4486, l4467
      Input #i4486, s4475
      Close i4486
      If Func17333(l4467, (43162)) Then
        i5419 = -1
      Else
  236   i5419 = 0
      End If
  242 If i5419 = -1 Then
        s4479 = "Y"
      Else
  275   s4479 = "N"
        s4475 = "UNREGISTERED COPY"
      End If
  295 If Exists(ProgPath + "thmaint.dat") Then
        i4486 = FreeFile
        Open ProgPath + "thmaint.dat" For Input As i4486
        Input #i4486, s5429
        Close i4486
        s5429 = UCase(s5429)
        If s5429 <> s5393 Then
          Del ProgPath + "thplayed.dat"
          Del ProgPath + "thmaint.dat"
          Del ProgPath + "revenge.dat"
          Del ProgPath + "packed.flg"
        End If
      End If
  447 i4486 = FreeFile
      Open s4463 + "lachuser.dat" For Random As i4486 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
      i4480 = 0
      Do
  490   i4480 = i4480 + 1
        Get i4486, i4480, t26_4488 '! 172 bytes
        If InStr(UCase(t26_4488.s0), UCase(Pad(User.Name, 15))) Then
          GoTo 580
        End If
  564 Loop While Not EOF(i4486)
  580 Close i4486
      Sub19494
      If Exists(s4463 + "armour.dat") Then
        Open s4463 + "armour.dat" For Random As i4486 Len = 180 '! This value should probably be replaced with a "SizeOf" expression
        Get i4486, -1, t30_5075 '! 180 bytes
        Close i4486
      Else
  673   Cls
        MorePrompt(0)
        Locate 5, 12
        Print "@BELL@@84@ERROR!! ERROR!! @[e-mail] FILE NOT FOUND!!!!!!"
        Locate 7, 12
        Print "@04@Please Notify the SysOp of this Error IMMEDIATELY!!"
        Sub18084
        Sub18871
      End If
  725 If Exists(s4463 + "weapon.dat") Then
        Open s4463 + "weapon.dat" For Random As i4486 Len = 180 '! This value should probably be replaced with a "SizeOf" expression
        Get i4486, -1, t29_4895 '! 180 bytes
        Close i4486
      Else
  804   Cls
        MorePrompt(0)
        Locate 5, 12
        Print "@BELL@@84@ERROR!! ERROR!! @[e-mail] FILE NOT FOUND!!!!!!"
        Locate 7, 12
        Print "@04@Please Notify the SysOp of this Error IMMEDIATELY!!"
        Sub18084
        Sub18871
      End If
  856 If Exists(ProgPath + "thplayed.dat") Then
        i4486 = FreeFile
        Open ProgPath + "thplayed.dat" For Input As i4486
        Do
  911     Input #i4486, s5433
          If InStr(UCase(s5433), UCase(t26_4488.s0)) Then
            Close i4486
            GoTo 994
          End If
  964   Loop While Not EOF(i4486)
        Close i4486
      End If
  988 GoTo 1047
  994 MorePrompt(0)
      Cls
      Sub18921
      Locate 5, 12
      Print "@0D@Sorry....Thievin Heathen's is now CLOSED for the day..."
      Locate 7, 12
      Print "@0D@Come back tomorrow - and DON'T FORGET YOUR GOLD!!!!!!!!"
      Sub18084
      End
 1047 i4486 = FreeFile
      Open ProgPath + "thplayed.dat" For Append As i4486
      Print #i4486, UCase(t26_4488.s0)
      Close i4486
      i4486 = FreeFile
      Open ProgPath + "thmaint.dat" For Output As i4486
      Print #i4486, UCase(s5393)
      Close i4486
      If Exists(ProgPath + "revenge.dat") Then
        i4486 = FreeFile
        Open ProgPath + "revenge.dat" For Input As i4486
        Do
 1222     Input #i4486, s5433
          If InStr(UCase(s5433), UCase(t26_4488.s15)) Then
            Close i4486
            s5373 = "Y"
            GoTo 1808
          End If
 1290   Loop While Not EOF(i4486)
        Close i4486
      End If
 1314 If Exists(ProgPath + "thfhbank.dat") Then
        i4486 = FreeFile
        Open ProgPath + "thfhbank.dat" For Random As i4486 Len = 63 '! This value should probably be replaced with a "SizeOf" expression
        i4484 = 1
        Do
 1376     Get i4486, i4484, t27_4832 '! 63 bytes
          If t27_4832.s0 = "FREE Record    " Then
          Else
 1419       i5405 = Val(Mid(s5393, 1, 2))
            i5407 = Val(Mid(s5393, 4, 2))
            i5409 = Val(Mid(s5393, 7, 2))
            i5411 = Val(Mid(t27_4832.s55, 1, 2))
            i5413 = Val(Mid(t27_4832.s55, 4, 2))
            i5415 = Val(Mid(t27_4832.s55, 7, 2))
            If i5415 < i5409 Then
              i5411 = i5405 - 1
            End If
 1583       If i5411 < i5405 Then
              i5407 = i5407 + 30
            End If
 1615       i5417 = i5407 - i5413
            If i5417 >= 15 Then
              t27_4832.s0 = "FREE Record    "
              Put i4486, i4484, t27_4832 '! 63 bytes
            End If
          End If
 1676     i4484 = i4484 + 1
        Loop While Not EOF(i4486)
        Close i4486
        Sub18245
      End If
 1720 If Exists(ProgPath + "packed.flg") Then
      Else
 1745   Sub21639
        i4486 = FreeFile
        Open ProgPath + "packed.flg" For Output As i4486
        Print #i4486, "THFHBANK.DAT ALREADY PACKED TODAY"
        Close i4486
      End If
 1808 r5341 = Val(Trim(t26_4488.s62))
      i5337 = Val(Trim(t26_4488.s142))
      i5339 = Val(Trim(t26_4488.s146))
      i5360 = Val(Trim(t26_4488.s85))
      Sub17805
      Cls
      MorePrompt(0)
      DisplayTextFile(ProgPath + "heathen1.bbs")
      Locate 18, 29
      Print "@09@.67 @08@(@07@Beta Release@08@)"
      Locate 19, 29
      Print "@09@" + Trim(s4475)
      Sub18084
      Do
        Do
          Do
            Do
              Do
                Do
                  Do
 1968               Cls
                    MorePrompt(0)
                    DisplayTextFile(ProgPath + "heathen2.bbs")
                    Do
 1990                 s5322 = InKey(1213417543)
                      If InStr("HGRCVQ", UCase(s5322)) Then
                        GoTo 2039
                      End If
 2033               Loop
 2039               s5390 = UCase(s5322)
                    If (UCase(s5322) = "R") = 0 Then GoTo 2189
                    If s4479 = "Y" Then
                      GoTo 4169
                      GoTo 2189
                    End If
 2107               Sub18921
                    Locate 4, 15
                    Print "@04@This copy of Thievin Heathen's is @8C@UNREGISTERED@04@."
                    Locate 5, 15
                    Print "@04@If you wanna use this option @08@(And Trust us, you WILL)"
                    Locate 6, 15
                    Print "@84@PLEASE @04@GET YOUR SYSOP TO REGISTER THIS GAME...."
                    Locate 7, 15
                    Print "@04@The Fate of the BBS Gaming World is in your hands!"
                    Sub18084
                  Loop
 2189             If s5373 = "Y" Then
                    GoTo 6074
                  End If
 2214             If UCase(s5322) = "H" Then
                    GoTo 2464
                  End If
 2242             If UCase(s5322) = "G" Then
                    GoTo 3465
                  End If
 2270             If UCase(s5322) = "C" Then
                    GoTo 5470
                  End If
 2298             If (UCase(s5322) = "V") = 0 Then GoTo 2436
                  If UCase(s4479) = "Y" Then
                    GoTo 7111
                    GoTo 2436
                  End If
 2354             Sub18921
                  Locate 4, 15
                  Print "@04@This copy of Thievin Heathen's is @8C@UNREGISTERED@04@."
                  Locate 5, 15
                  Print "@04@If you wanna use this option @08@(And Trust us, you WILL)"
                  Locate 6, 15
                  Print "@84@PLEASE @04@GET YOUR SYSOP TO REGISTER THIS GAME...."
                  Locate 7, 15
                  Print "@04@The Fate of the BBS Gaming World is in your hands!"
                  Sub18084
                Loop
 2436           If UCase(s5322) = "Q" Then
                  Sub18871
                End If
                Do
                  Do
                    Do
                      Do
 2464                   Cls
                        MorePrompt(0)
                        Sub18921
                        Locate 3, 12
                        Print "@05@So you need some healing " + "@0D@" + Trim(t26_4488.s15) + "@05@??"
                        Locate 4, 12
                        Print "@05@Well that's what I do BEST! I'll fix ya in no time flat!"
                        Locate 5, 12
                        Print "@05@Well...Errr...Uhhh...Provided that you have the GOLD!"
                        Locate 6, 12
                        Print "@05@Payment is due when services are rendered....hehehhehe!"
                        Locate 7, 12
                        Print "@05@No Matter what the outcome! I Can't be sued either! Ha Ha!"
                        Locate 8, 12
                        Print "@05@After all...this is a fantasy world...No Courts! Ha Ha!"
                        Locate 9, 12
                        Print "@05@What's it gonna be today " + "@0D@" + Trim(t26_4488.s15) + "@05@??"
                        Locate 10, 12
                        Print "@05@Come now....I don't have all day..."
                        Locate 11, 17
                        Print "@08@Each Hitpoint Recovered Will Cost You 20 Gold"
                        Locate 15, 17
                        Print "@05@[@0D@F@05@]ix EVERYTHING up...Full Healing!"
                        Locate 16, 17
                        Print "@05@[@0D@J@05@]ust gimme a bandaid...Partial Healing!"
                        Locate 17, 17
                        Print "@05@[@0D@Q@05@]uit back to Thievin's Office"
                        Do
 2728                     s5322 = InKey(1213417543)
                          If InStr("FJQ", UCase(s5322)) Then
                            GoTo 2777
                          End If
 2771                   Loop
 2777                   If UCase(s5322) = "F" Then
                        Else
 2805                     If UCase(s5322) = "J" Then
                            GoTo 3102
                          End If
 2833                     If UCase(s5322) = "Q" Then
                            GoTo 1968
                          End If
                        End If
 2861                   If (i5337 = i5339) = 0 Then GoTo 2909
                        Locate 19, 12
                        Print "@05@You don't need any healing! Why do you waste my time?"
                        Delay 1
                      Loop
 2909                 r5347 = (i5339 - i5337) * 20
                      Sub18955
                      If s5366 = "Y" Then
                        t26_4488.s142 = t26_4488.s146
                        If Len(t26_4488.s142) < 4 Then
                          t26_4488.s142 = Pad(t26_4488.s142, 4)
                        End If
 3024                   Sub18170
                        Locate 19, 12
                        Print "@05@Okeedokee,you're all fixed up " + "@0D@" + Trim(t26_4488.s15) + "@05@!!"
                        i5337 = Val(Trim(t26_4488.s142))
                      End If
 3096               Loop
 3102               If (i5337 = i5339) = 0 Then GoTo 3150
                    Locate 19, 12
                    Print "@05@You don't need any healing! Why do you waste my time?"
                    Delay 1
                  Loop
 3150             Locate 19, 12
                  i5362 = i5339 - i5337
                  s5353 = InputMask("@05@How many Hitpoints do you wanna recover? ", "9999", "", 1213417543)
                  i5364 = Val(Trim(s5353))
                  If i5364 > i5362 Then
                    i5364 = i5362
                  End If
 3248             r5347 = i5364 * 100
                  Sub18955
                  If s5366 = "Y" Then
                    i5337 = i5337 + i5364
                    t26_4488.s142 = Str(i5337)
                    If Len(t26_4488.s142) < 4 Then
                      t26_4488.s142 = Pad(t26_4488.s142, 4)
                    End If
 3371               Sub18170
                    Locate 19, 1
                    ClrEOL
                    Locate 19, 12
                    Print "@05@Okeedokee....you're all fixed up " + "@0D@" + Trim(t26_4488.s15) + "@05@!!"
                    i5337 = Val(Trim(t26_4488.s142))
                  End If
 3453             Sub18084
                Loop
 3465           Cls
                MorePrompt(0)
                Sub18921
                If UCase(t26_4488.s75) = "F" Then
                  s5367 = "woman"
                End If
 3514           If UCase(t26_4488.s75) = "M" Then
                  s5367 = "man"
                End If
 3549           Locate 3, 12
                Print "@05@So " + "@0D@" + Trim(t26_4488.s15) + " @05@not happy as a " + "@05@" + Trim(s5367) + "@05@??"
                Locate 4, 12
                Print "@05@Not a problem for a Sex Change expert like old Thievin!"
                Locate 5, 12
                Print "@05@I can fix ya right up...for a MODEST fee of course hehe!"
                Locate 6, 12
                Print "@05@I'll fix your little problem for say.....uhhh....errrr..."
                Locate 7, 12
                Print "@05@A REASONABLE fee for an operation this complex would be..."
                Locate 8, 12
                Print "@05@Well....uhhh...how does 25,000 Gold sound to ya?"
                Locate 9, 12
                Print "@05@It'd BETTER sound pretty good - Because that's the cost!"
                Locate 10, 12
                Print "@05@Come on now " + "@0D@" + Trim(t26_4488.s15) + "@05@...I don't have all day!"
                Locate 15, 17
                Print "@05@[@0D@D@05@]o it up Doc! I want that Operation!"
                Locate 17, 17
                Print "@05@[@0D@N@05@]ah I changed my mind...no thanks Doc!"
                Do
 3790             s5322 = InKey(1213417543)
                  If InStr("DN", UCase(s5322)) Then
                    GoTo 3839
                  End If
 3833           Loop
 3839           If UCase(s5322) = "D" Then
                  GoTo 3895
                End If
 3867           If (UCase(s5322) = "N") = 0 Then GoTo 3895
              Loop
 3895         r5347 = 25000
              Sub18955
              If s5366 = "Y" Then
                If UCase(s5367) = "WOMAN" Then
                  t26_4488.s75 = "M"
                End If
 3965           If UCase(s5367) = "MAN" Then
                  t26_4488.s75 = "F"
                End If
 4000           If Len(t26_4488.s75) < 1 Then
                  t26_4488.s75 = Pad(t26_4488.s75, 1)
                End If
 4048           Sub18170
                If t26_4488.s75 = "M" Then
                  s5367 = "manly man"
                End If
 4086           If t26_4488.s75 = "F" Then
                  s5367 = "woman"
                End If
 4118           Locate 19, 17
                Print "@05@The operation was a success! You are now a " + "@05@" + Trim(s5367) + "@05@!!"
              End If
 4157         Sub18084
            Loop
            Do
 4169         Cls
              MorePrompt(0)
              Sub18921
              Locate 3, 12
              Print "@05@Hehehehee! So Revenge is on your mind?"
              Locate 4, 12
              Print "@05@You're a warrior after my own heart " + "@0D@" + Trim(t26_4488.s15) + "@05@!"
              Locate 5, 12
              Print "@05@Why Get Mad.....Get Even! Right???? Hehehehehe!"
              Locate 6, 12
              Print "@05@I'm good at getting even! But I do require a fee....."
              Locate 7, 12
              Print "@05@My current fee is 10000 for doing a little MALPRACTICE!"
              Locate 8, 12
              Print "@05@I know that's kinda high...but I don't care!"
              Locate 9, 12
              Print "@05@Oh..and one more thing...I can't work on em if they don't"
              Locate 10, 12
              Print "@05@visit me....so get em to come to my office..hehehehehe."
              Locate 11, 12
              Print "@05@What's it gonna be " + "@0D@" + Trim(t26_4488.s15) + "@05@??"
              Locate 15, 20
              Print "@05@[@0D@G@05@]et some REVENGE!"
              Locate 16, 20
              Print "@05@[@0D@N@05@]ah Forget it! (@08@Go Back to Office@05@)"
              Do
 4417           s5322 = InKey(1213417543)
                If InStr("GN", UCase(s5322)) Then
                  GoTo 4466
                End If
 4460         Loop
 4466         If UCase(s5322) = "G" Then
              Else
 4494           If UCase(s5322) = "N" Then
                  GoTo 1968
                End If
              End If
 4522
 4543         For i5371 = 15 To 23 Step 1
                Locate i5371, 1
                ClrEOL
              Next
 4629         Locate 15, 15
              Print "@05@MALPRACTICE will make the marked warrior be harmed"
              Locate 16, 15
              Print "@05@when he/she tries to get ANY operation here......."
              Locate 17, 15
              Print "@05@But they have to visit on the SAME DAY you mark them."
              Locate 18, 15
              Print "@05@Do you still want to do this " + "@0D@" + Trim(t26_4488.s15) + "@05@? @08@(Y/N)"
              Do
 4722           s5322 = InKey(1213417543)
                If InStr("YN", UCase(s5322)) Then
                  GoTo 4771
                End If
 4765         Loop
 4771         If (UCase(s5322) = "N") = 0 Then GoTo 4799
            Loop
 4799       r5347 = 10000
            Sub18955
            Do
 4815
 4836         For i5371 = 15 To 23 Step 1
                Locate i5371, 1
                ClrEOL
              Next
 4922         Locate 16, 15
              Print "@05@You @0D@MUST @05@use a @8D@VALID @05@user's alias here!"
              Locate 18, 15
              Print "@05@Type @0D@QUIT @05@at the prompt if you've changed your mind."
              Locate 19, 15
              Print "@05@You will NOT get a refund if you change your mind!"
              Locate 17, 15
              If s5366 = "N" Then
                GoTo 4169
              End If
 5002         s5374 = InputMask("@05@Who do you want to harm? @0C@", "XXXXXXXXXXXXXXX", "", 1213417543)
              If UCase(Trim(s5374)) = "QUIT" Then
                GoTo 4169
              End If
 5062         Sub19319
              If (s5389 = "N") = 0 Then GoTo 5224
 5108         For i5371 = 15 To 23 Step 1
                Locate i5371, 1
                ClrEOL
              Next
 5194         Locate 17, 15
              Print "@05@That is not a @8D@VALID @05@Warrior's Alias Name TRY AGAIN."
              Delay 1.5
            Loop
 5224       i4486 = FreeFile
            Open ProgPath + "revenge.dat" For Append As i4486
            Print #i4486, UCase(s5374)
            Close i4486
 5306       For i5371 = 15 To 23 Step 1
              Locate i5371, 1
              ClrEOL
            Next
 5392       Locate 17, 15
            Print "@05@That sucker's a goner as soon as he comes to visit me!"
            Locate 18, 15
            Print "@0D@" + Trim(s5374) + "@05@ is gonna wish they never met you!"
            Locate 19, 15
            Print "@05@Don't forget...they gotta visit me TODAY for it to work!"
            Sub18084
          Loop
          Do
 5470       Cls
            MorePrompt(0)
            Sub18921
            Locate 3, 12
            Print "@05@So, " + "@0D@" + Trim(t26_4488.s15) + " @05@not feelin' so HOT?"
            Locate 4, 12
            Print "@05@Ewwww! I can see why! It's that ugly mug of yours!"
            Locate 5, 12
            Print "@05@Looks like someone lit your face on fire....."
            Locate 6, 12
            Print "@05@and beat it out with a bicycle chain! YOU ARE UGGGGLY!"
            Locate 7, 12
            Print "@05@So....how about some cosmetic surgery? I'm real good!"
            Locate 8, 12
            Print "@05@I can make you the most attractive in the realm!"
            Locate 9, 12
            Print "@05@And all for a MODEST FEE of only about...uhhhh...."
            Locate 10, 12
            Print "@05@Say...errr...how about 5,000 gold per charm unit?"
            Locate 11, 12
            Print "@05@It'd better be ok! That's the going rate!"
            Locate 15, 20
            Print "@05@[@0D@F@05@]ix me up doc!"
            Locate 16, 20
            Print "@05@[@0D@N@05@]ah Forget it...I look fine!"
            Do
 5689         s5322 = InKey(1213417543)
              If InStr("FN", UCase(s5322)) Then
                GoTo 5738
              End If
 5732       Loop
 5738       If UCase(s5322) = "F" Then
            Else
 5766         If UCase(s5322) = "N" Then
                GoTo 1968
              End If
            End If
 5794       Locate 19, 20
            s5357 = InputMask("@05@How many charm points do you want? ", "999", "", 1213417543)
            i5364 = Val(Trim(s5357))
            r5347 = i5364 * 5000
            Locate 19, 1
            ClrEOL
            Sub18955
            If s5366 = "Y" Then
              i5360 = i5360 + i5364
              If i5360 > 999 Then
                i5360 = 999
              End If
 5939         t26_4488.s85 = Str(i5360)
              If Len(t26_4488.s85) < 3 Then
                t26_4488.s85 = Pad(t26_4488.s85, 3)
              End If
 6005         Sub18170
              Locate 19, 1
              ClrEOL
              Locate 19, 20
              Print "@05@The operation was a success! " + "@0D@" + Trim(s5357) + " @05@Charm Added!"
            End If
 6062       Sub18084
            GoTo 1968
 6074       Cls
            MorePrompt(0)
            DisplayTextFile(ProgPath + "revenged.bbs")
            Sub18084
            If s5390 = "H" Then
              Cls
              MorePrompt(0)
              Sub18921
              Locate 3, 12
              Print "@05@Now...Now..." + "@0D@" + Trim(t26_4488.s15) + "@05@ just lie down..."
              Locate 4, 12
              Print "@05@Thievin' Heathen then proceeds to strap you down......."
              Locate 5, 12
              Print "@05@...And carves you up like a Thanksgiving Turkey!"
              Locate 6, 12
              Print "@05@You wonder what BASTARD paid Thievin' to slice you up?!?!?"
              Locate 7, 12
              Print "@05@You vow to get whoever it was.........."
              Locate 8, 12
              Print "@05@Your only regret is that you didn't think of this first!"
              Locate 9, 12
              Print "@05@You feel your strength slowly being drained from you!"
              Locate 11, 12
              Print "@0D@Your Hitpoints are Decreased to 1 HitPoint! Bummer Dude!"
              i5337 = 1
              t26_4488.s142 = Str(i5337)
              If Len(t26_4488.s142) < 4 Then
                t26_4488.s142 = Pad(t26_4488.s142, 4)
              End If
 6365         Sub18170
              s5373 = "N"
              Sub18084
              GoTo 2464
              GoTo 7105
            End If
 6400       If s5390 = "G" Then
              Cls
              MorePrompt(0)
              Sub18921
              Locate 3, 12
              Print "@05@Now...Now..." + "@0D@" + Trim(t26_4488.s15) + "@05@ just lie down..."
              Locate 4, 12
              Print "@05@Thievin' Heathen then proceeds to strap you down......."
              Locate 5, 12
              Print "@05@...And carves you up like a Thanksgiving Turkey!"
              Locate 6, 12
              Print "@05@You wonder what BASTARD paid Thievin' to slice you up?!?!?"
              Locate 7, 12
              Print "@05@You vow to get whoever it was.........."
              Locate 8, 12
              Print "@05@Your only regret is that you didn't think of this first!"
              Locate 9, 12
              Print "@05@Looking down at your loins you see a LOT of blood!"
              Locate 10, 12
              Print "@05@You don't feel very attractive now.....:'("
              Locate 11, 12
              Print "@0D@As a result of this attack your sex has been changed!"
              If t26_4488.s75 = "M" Then
                s5367 = "F"
              End If
 6638         If t26_4488.s75 = "F" Then
                s5367 = "M"
              End If
 6670         t26_4488.s75 = UCase(s5367)
              If Len(t26_4488.s75) < 1 Then
                t26_4488.s75 = Pad(t26_4488.s75, 1)
              End If
 6735         Sub18170
              s5373 = "N"
              Sub18084
              GoTo 3465
              GoTo 7105
            End If
 6770       If (s5390 = "C") = 0 Then GoTo 7105
            Cls
            MorePrompt(0)
            Sub18921
            Locate 3, 12
            Print "@05@Now...Now..." + "@0D@" + Trim(t26_4488.s15) + "@05@ just lie down..."
            Locate 4, 12
            Print "@05@Thievin' Heathen then proceeds to strap you down......."
            Locate 5, 12
            Print "@05@...And carves you up like a Thanksgiving Turkey!"
            Locate 6, 12
            Print "@05@You wonder what BASTARD paid Thievin' to slice you up?!?!?"
            Locate 7, 12
            Print "@05@You vow to get whoever it was.........."
            Locate 8, 12
            Print "@05@Your only regret is that you didn't think of this first!"
            Locate 9, 12
            Print "@05@Looking in the mirror at your face you see a LOT of blood!"
            Locate 10, 12
            Print "@05@You don't feel very attractive now.....:'("
            Locate 11, 12
            Print "@0D@As a result of this attack you lose 10 Charm.....:("
            i5360 = i5360 - 10
            If i5360 < 0 Then
              i5360 = 0
            End If
 7010       t26_4488.s85 = Str(i5360)
            If Len(t26_4488.s85) < 3 Then
              t26_4488.s85 = Pad(t26_4488.s85, 3)
            End If
 7076       Sub18170
            s5373 = "N"
            Sub18084
          Loop
 7105   Loop
 7111   i4486 = FreeFile
        Open s4463 + "lach10.cfg" For Input As i4486
        Input #i4486, s5454
        Input #i4486, s5454
        Input #i4486, s5454
        Input #i4486, s5454
        Input #i4486, s5454
        Input #i4486, s5454
        Input #i4486, s5454
        Input #i4486, s5454
        Input #i4486, s5454
        Input #i4486, i5448
        Input #i4486, i5450
        Input #i4486, s5454
        Input #i4486, i5452
        Input #i4486, s5454
        Close i4486
        If Exists(ProgPath + "thfhbank.dat") Then
          i4486 = FreeFile
          Open ProgPath + "thfhbank.dat" For Random As i4486 Len = 63 '! This value should probably be replaced with a "SizeOf" expression
          i4482 = 1
          Do
 7361       Get i4486, i4482, s5255 '! 63 bytes
            If InStr(s5255, UCase(t26_4488.s15)) Then
              Close i4486
              i4486 = FreeFile
              Open ProgPath + "thfhbank.dat" For Random As i4486 Len = 63 '! This value should probably be replaced with a "SizeOf" expression
              Get i4486, i4482, t27_4832 '! 63 bytes
              Close i4486
              GoTo 7829
            End If
 7483       i4482 = i4482 + 1
          Loop While Not EOF(i4486)
          Close i4486
          t27_4832.s0 = t26_4488.s15
          t27_4832.s15 = "NONE BANKED    "
          t27_4832.s30 = "NONE BANKED    "
          t27_4832.l45 = 0
          t27_4832.i49 = 0
          t27_4832.i51 = 0
          t27_4832.i53 = 0
          t27_4832.s55 = s5393
        End If
 7621   Open ProgPath + "thfhbank.dat" For Random As i4486 Len = 63 '! This value should probably be replaced with a "SizeOf" expression
        Put i4486, i4482, t27_4832 '! 63 bytes
        Close i4486
        Sub18245
        Cls
        MorePrompt(0)
        Sub18921
        Locate 3, 23
        Print "@0C@Heathen's Back Alley Bank"
        Locate 5, 12
        Print "@09@So yer interested in an account at my fine establishment?"
        Locate 6, 12
        Print "@09@Very Well! I can always use new customers! Come over here."
        Locate 7, 12
        Print "@08@Thievin puts on his tie and motions you to come closer...."
        Locate 8, 12
        Print "@09@You can store all kinds of things in my Depository........"
        Locate 9, 12
        Print "@09@From Weapons, to Armor, even your daily fights!"
        Locate 10, 12
        Print "@09@But don't get the wrong idea! There @0F@ARE @09@limits on the"
        Locate 11, 12
        Print "@09@amount you may deposit....also I pay NO INTEREST on @0E@Gold@09@."
        Sub18084
        Do
          Do
            Do
              Do
 7829           Cls
                MorePrompt(0)
                Locate 3, 18
                Print "@0C@Heathen's Bank - Itemized Statement of Account"
                Locate 5, 5
                Print "@08@┌--│ @09@Account Type@08@ │-┬-│ @09@Current Balance@08@ │-┬-│ @09@Max Allowed Balance@08@ │--┐"
                Locate 6, 2
                Print "@08@[X] @0C@Weapon Account     @08@:                     :"
                Locate 7, 2
                Print "@08@[X] @0C@Armor Account      @08@:                     :"
                Locate 8, 2
                Print "@08@[X] @0C@Combat Fights Acct @08@:                     :"
                Locate 9, 2
                Print "@08@[X] @0C@Cavern Fights Acct @08@:                     :"
                Locate 10, 2
                Print "@08@[X] @0C@Player Fights Acct @08@:                     :"
                Locate 11, 2
                Print "@08@[X] @0C@Savings Account    @08@:                     :"
                Locate 12, 5
                Print "@08@└-------------------┴---------------------┴--------------------------┘"
                Locate 6, 29
                Print "@0F@" + Trim(t27_4832.s15)
                Locate 7, 29
                Print "@0F@" + Trim(t27_4832.s30)
                Locate 8, 29
                Print "@0F@" + Str(t27_4832.i49)
                Locate 9, 29
                Print "@0F@" + Str(t27_4832.i51)
                Locate 10, 29
                Print "@0F@" + Str(t27_4832.i53)
                Locate 11, 29
                Print "@0F@" + Str(t27_4832.l45)
                Locate 6, 54
                Print "@0C@One (1) Weapon"
                Locate 7, 54
                Print "@0C@One (1) Armor"
                Locate 8, 54
                Print "@0C@" + Str(i5448)
                Locate 9, 54
                Print "@0C@" + Str(i5450)
                Locate 10, 54
                Print "@0C@" + Str(i5452)
                Locate 11, 54
                Print "@0C@9,999,999 @0E@Gold"
                Locate 13, 5
                Print "@08@┌------------------│ @09@You Can Deposit The Following @08@│-----------------┐"
                Locate 14, 7
                Print "@08@[X] @0C@Your Weapon : " + "@0F@" + Trim(t26_4488.s40)
                Locate 15, 7
                Print "@08@[X] @0C@Your Armor  : " + "@0F@" + Trim(t26_4488.s118)
                Locate 16, 7
                Print "@08@[X] @0C@Gold Onhand : " + "@0F@" + Trim(t26_4488.s62)
                Locate 14, 51
                Print "@08@[X] @0C@Combat Fights : " + "@0F@" + Str(t26_4488.i101)
                Locate 15, 51
                Print "@08@[X] @0C@Cavern Fights : " + "@0F@" + Str(t26_4488.i103)
                Locate 16, 51
                Print "@08@[X] @0C@Player Fights : " + "@0F@" + Str(t26_4488.i105)
                Locate 17, 5
                Print "@08@└--------------------------------------------------------------------┘"
                Locate 18, 21
                Print "@09@What'll it be today " + "@09@" + Trim(t26_4488.s15) + "@09@?"
                Locate 20, 23
                Print "@08@(@0D@W@08@)@05@ithdraw , @08@(@0D@D@08@)@05@eposit , @08@(@0D@Q@08@)@05@uit"
                Do
 8607             s5322 = InKey(1213417543)
                  If InStr("WDQ", UCase(s5322)) Then
                    GoTo 8656
                  End If
 8650           Loop
 8656           If UCase(s5322) = "Q" Then
                  Sub18170
                  Sub18245
                  GoTo 1968
                End If
 8696           If (UCase(s5322) = "W") = 0 Then GoTo 12762
                Do
                  Do
                    Do
                      Do
                        Do
 8718                     Locate 6, 2
                          Print "@08@[@0D@1@08@]"
                          Locate 7, 2
                          Print "@08@[@0D@2@08@]"
                          Locate 8, 2
                          Print "@08@[@0D@3@08@]"
                          Locate 9, 2
                          Print "@08@[@0D@4@08@]"
                          Locate 10, 2
                          Print "@08@[@0D@5@08@]"
                          Locate 11, 2
                          Print "@08@[@0D@6@08@]"
                          Locate 18, 15
                          Print "@09@Which do you want to Withdraw? @08@(@07@1@08@,@07@2@08@,@07@3@08@,@07@4@08@,@07@5@08@,@07@6@08@) @08@[@84@?@08@]";
                          ClrEOL
                          Locate 19, 16
                          Print "@08@Hit a Q if you don't want to make a Withdrawal"
                          Locate 20, 1
                          ClrEOL
                          Locate 18, 61
                          Do
 8866                       s5322 = InKey(1213417543)
                            If InStr("123456Q", UCase(s5322)) Then
                              GoTo 8915
                            End If
 8909                     Loop
 8915                     s65532_ = UCase(s5322)
                          If s65532_ = "1" Then
                            Sub19787
                            i5466 = Val(Trim(t26_4488.s79))
                            If t27_4832.s15 = "NONE BANKED    " Then
 9016                         For i5318 = 18 To 21 Step 1
                                Locate i5318, 1
                                ClrEOL
                              Next
 9102                         Locate 18, 20
                              Print "@09@You Don't Have a Weapon to Withdraw!"
                              Delay 1
                              GoTo 7829
                            End If
 9132                       If t26_4488.s40 = "YOUR FISTS     " Then
                              t26_4488.s40 = t27_4832.s15
                              t27_4832.s15 = "NONE BANKED    "
                            Else
 9196                         s5454 = t26_4488.s40
                              t26_4488.s40 = t27_4832.s15
                              t27_4832.s15 = s5454
                            End If
 9244                       i5466 = i5466 + i5421 + i5425
                            t26_4488.s79 = Str(i5466)
                            If Len(t26_4488.s79) <> 3 Then
                              t26_4488.s79 = Pad(t26_4488.s79, 3)
                            End If
 9334                       If Len(t26_4488.s40) <> 15 Then
                              t26_4488.s40 = Pad(t26_4488.s40, 15)
                            End If
 9382                       If Len(t27_4832.s15) <> 15 Then
                              t27_4832.s15 = Pad(t27_4832.s15, 15)
                            End If
 9430                       GoTo 12730
                          End If
 9436                     If s65532_ = "2" Then
                            Sub20713
                            i5468 = Val(Trim(t26_4488.s76))
                            If t27_4832.s30 = "NONE BANKED    " Then
 9524                         For i5318 = 18 To 21 Step 1
                                Locate i5318, 1
                                ClrEOL
                              Next
 9610                         Locate 18, 20
                              Print "@09@You Don't Have any Armor to Withdraw!"
                              Delay 1
                              GoTo 7829
                            End If
 9640                       If t26_4488.s118 = "BIRTHDAY SUIT  " Then
                              t26_4488.s118 = t27_4832.s30
                              t27_4832.s30 = "NONE BANKED    "
                            Else
 9704                         s5454 = t26_4488.s118
                              t26_4488.s118 = t27_4832.s30
                              t27_4832.s30 = s5454
                            End If
 9752                       i5468 = i5468 + i5423 + i5427
                            t26_4488.s76 = Str(i5468)
                            If Len(t26_4488.s76) <> 3 Then
                              t26_4488.s76 = Pad(t26_4488.s76, 3)
                            End If
 9842                       If Len(t26_4488.s118) <> 15 Then
                              t26_4488.s118 = Pad(t26_4488.s118, 15)
                            End If
 9890                       If Len(t27_4832.s30) <> 15 Then
                              t27_4832.s30 = Pad(t27_4832.s30, 15)
                            End If
 9938                       GoTo 12730
                          End If
 9944                     If (s65532_ = "3") = 0 Then GoTo 10566
 9982                     For i5318 = 18 To 21 Step 1
                            Locate i5318, 1
                            ClrEOL
                          Next
10068                     If t27_4832.i49 = 0 Then
                            Locate 18, 20
                            Print "@09@You Don't Have any Combat Fights Banked!"
                            Delay 1
                            GoTo 7829
                          End If
10116                     Locate 18, 20
                          s5454 = InputMask("@09@Amount of Withdrawal@08@: @XX@", "99", "", 1213417543)
                          l5458 = Val(Trim(s5454))
                          If (l5458 > t27_4832.i49) = 0 Then GoTo 10340
10208                     For i5318 = 18 To 21 Step 1
                            Locate i5318, 1
                            ClrEOL
                          Next
10294                     Locate 18, 20
                          Print "@09@Who do ya think you are? Jessy James?"
                          Locate 19, 20
                          Print "@09@Bank Robbery is NOT ALLOWED here!"
                          Delay 1
                        Loop
10340                   t27_4832.i49 = t27_4832.i49 - l5458
                        t26_4488.i101 = t26_4488.i101 + l5458
10411                   For i5318 = 18 To 21 Step 1
                          Locate i5318, 1
                          ClrEOL
                        Next
10497                   Locate 18, 15
                        Print "@09@You have made a withdrawal of " + "@0F@" + Trim(s5454) + " @09@fights."
                        Locate 19, 15
                        Print "@09@The employees of Heathen's Bank appreciate your business!"
                        Delay 1
                        GoTo 12730
10566                   If (s65532_ = "4") = 0 Then GoTo 11188
10604                   For i5318 = 18 To 21 Step 1
                          Locate i5318, 1
                          ClrEOL
                        Next
10690                   If t27_4832.i51 = 0 Then
                          Locate 18, 20
                          Print "@09@You Don't Have any Cavern Fights Banked!"
                          Delay 1
                          GoTo 7829
                        End If
10738                   Locate 18, 20
                        s5454 = InputMask("@09@Amount of Withdrawal@08@: @XX@", "99", "", 1213417543)
                        l5458 = Val(Trim(s5454))
                        If (l5458 > t27_4832.i51) = 0 Then GoTo 10962
10830                   For i5318 = 18 To 21 Step 1
                          Locate i5318, 1
                          ClrEOL
                        Next
10916                   Locate 18, 20
                        Print "@09@Who do ya think you are? Jessy James?"
                        Locate 19, 20
                        Print "@09@Bank Robbery is NOT ALLOWED here!"
                        Delay 1
                      Loop
10962                 t27_4832.i51 = t27_4832.i51 - l5458
                      t26_4488.i103 = t26_4488.i103 + l5458
11033                 For i5318 = 18 To 21 Step 1
                        Locate i5318, 1
                        ClrEOL
                      Next
11119                 Locate 18, 15
                      Print "@09@You have made a withdrawal of " + "@0F@" + Trim(s5454) + " @09@fights."
                      Locate 19, 15
                      Print "@09@The employees of Heathen's Bank appreciate your business!"
                      Delay 1
                      GoTo 12730
11188                 If (s65532_ = "5") = 0 Then GoTo 11810
11226                 For i5318 = 18 To 21 Step 1
                        Locate i5318, 1
                        ClrEOL
                      Next
11312                 If t27_4832.i53 = 0 Then
                        Locate 18, 20
                        Print "@09@You Don't Have any Player Fights Banked!"
                        Delay 1
                        GoTo 7829
                      End If
11360                 Locate 18, 20
                      s5454 = InputMask("@09@Amount of Withdrawal@08@: @XX@", "99", "", 1213417543)
                      l5458 = Val(Trim(s5454))
                      If (l5458 > t27_4832.i53) = 0 Then GoTo 11584
11452                 For i5318 = 18 To 21 Step 1
                        Locate i5318, 1
                        ClrEOL
                      Next
11538                 Locate 18, 20
                      Print "@09@Who do ya think you are? Jessy James?"
                      Locate 19, 20
                      Print "@09@Bank Robbery is NOT ALLOWED here!"
                      Delay 1
                    Loop
11584               t27_4832.i53 = t27_4832.i53 - l5458
                    t26_4488.i105 = t26_4488.i105 + l5458
11655               For i5318 = 18 To 21 Step 1
                      Locate i5318, 1
                      ClrEOL
                    Next
11741               Locate 18, 15
                    Print "@09@You have made a withdrawal of " + "@0F@" + Trim(s5454) + " @09@fights."
                    Locate 19, 15
                    Print "@09@The employees of Heathen's Bank appreciate your business!"
                    Delay 1
                    GoTo 12730
11810               If (s65532_ = "6") = 0 Then GoTo 12689
11848               For i5318 = 18 To 21 Step 1
                      Locate i5318, 1
                      ClrEOL
                    Next
11934               If t27_4832.l45 = 0 Then
                      Locate 18, 20
                      Print "@09@You Don't Have any Gold Banked!!!!!!!!!!"
                      Delay 1
                      GoTo 7829
                    End If
11982               Locate 18, 20
                    s5454 = InputMask("@09@Amount of Withdrawal@08@: @XX@", "9999999", "", 1213417543)
                    l5458 = Val(Trim(s5454))
                    l5462 = Val(Trim(t26_4488.s62))
                    If (l5458 > t27_4832.l45) = 0 Then GoTo 12227
12095               For i5318 = 18 To 21 Step 1
                      Locate i5318, 1
                      ClrEOL
                    Next
12181               Locate 18, 20
                    Print "@09@Who do ya think you are? Jessy James?"
                    Locate 19, 20
                    Print "@09@Bank Robbery is NOT ALLOWED here!"
                    Delay 1
                  Loop
12227             If (l5458 + l5462 > 9999999) = 0 Then GoTo 12405
12273             For i5318 = 18 To 21 Step 1
                    Locate i5318, 1
                    ClrEOL
                  Next
12359             Locate 18, 20
                  Print "@09@You can't possibly carry that much @0E@Gold@09@!"
                  Locate 19, 20
                  Print "@09@No More than 9,999,999 onhand allowed..........."
                  Delay 1
                Loop
12405
12426           For i5318 = 18 To 21 Step 1
                  Locate i5318, 1
                  ClrEOL
                Next
12512           Locate 18, 15
                Print "@09@You have made a withdrawal of " + "@0F@" + Trim(s5454) + " @0E@Gold@09@."
                Locate 19, 15
                Print "@09@The employees of Heathen's Bank appreciate your business!"
                t27_4832.l45 = t27_4832.l45 - l5458
                l5462 = l5462 + l5458
                t26_4488.s62 = Str(l5462)
                If Len(t26_4488.s62) <> 7 Then
                  t26_4488.s62 = Pad(t26_4488.s62, 7)
                End If
12675           Delay 1
                GoTo 12730
12689           If (s65532_ = "Q") = 0 Then GoTo 12730
                Sub18170
                Sub18245
              Loop
              GoTo 12730
12730         Sub18170
              Sub18245
              Delay 1
            Loop
            GoTo 17266
12762       If (UCase(s5322) = "D") = 0 Then GoTo 17266
            Do
              Do
                Do
                  Do
                    Do
                      Do
                        Do
                          Do
12784                       Locate 14, 7
                            Print "@08@[@0D@1@08@]"
                            Locate 15, 7
                            Print "@08@[@0D@2@08@]"
                            Locate 16, 7
                            Print "@08@[@0D@3@08@]"
                            Locate 14, 51
                            Print "@08@[@0D@4@08@]"
                            Locate 15, 51
                            Print "@08@[@0D@5@08@]"
                            Locate 16, 51
                            Print "@08@[@0D@6@08@]"
                            Locate 18, 15
                            Print "@09@Which do you want to Deposit? @08@(@07@1@08@,@07@2@08@,@07@3@08@,@07@4@08@,@07@5@08@,@07@6@08@) @08@[@84@?@08@]";
                            ClrEOL
                            Locate 19, 17
                            Print "@08@Hit a Q if you don't want to make a Deposit";
                            ClrEOL
                            Locate 20, 1
                            ClrEOL
                            Locate 18, 60
                            Do
12935                         s5322 = InKey(1213417543)
                              If InStr("123456Q", UCase(s5322)) Then
                                GoTo 12984
                              End If
12978                       Loop
12984                       s65528_ = UCase(s5322)
                            If s65528_ = "1" Then
                              Sub19787
                              i5466 = Val(Trim(t26_4488.s79))
                              If t26_4488.s40 = "YOUR FISTS     " Then
13085                           For i5318 = 18 To 21 Step 1
                                  Locate i5318, 1
                                  ClrEOL
                                Next
13171                           Locate 18, 20
                                Print "@09@You Don't Have a Weapon to Deposit!"
                                Delay 1
                                GoTo 7829
                              End If
13201                         If t27_4832.s15 = "NONE BANKED    " Then
                                t27_4832.s15 = t26_4488.s40
                                t26_4488.s40 = "YOUR FISTS     "
                              Else
13265                           s5454 = t27_4832.s15
                                t27_4832.s15 = t26_4488.s40
                                t26_4488.s40 = s5454
                              End If
13313                         i5466 = i5466 + i5421 + i5425
                              t26_4488.s79 = Str(i5466)
                              If Len(t26_4488.s79) <> 3 Then
                                t26_4488.s79 = Pad(t26_4488.s79, 3)
                              End If
13403                         If Len(t27_4832.s15) <> 15 Then
                                t27_4832.s15 = Pad(t27_4832.s15, 15)
                              End If
13451                         If Len(t26_4488.s40) <> 15 Then
                                t26_4488.s40 = Pad(t26_4488.s40, 15)
                              End If
13499                         GoTo 17240
                            End If
13505                       If s65528_ = "2" Then
                              Sub20713
                              i5468 = Val(Trim(t26_4488.s76))
                              If t26_4488.s118 = "BIRTHDAY SUIT  " Then
13593                           For i5318 = 18 To 21 Step 1
                                  Locate i5318, 1
                                  ClrEOL
                                Next
13679                           Locate 18, 20
                                Print "@09@You Don't Have any Armor to Deposit!"
                                Delay 1
                                GoTo 7829
                              End If
13709                         If t27_4832.s30 = "NONE BANKED    " Then
                                t27_4832.s30 = t26_4488.s118
                                t26_4488.s118 = "BIRTHDAY SUIT  "
                              Else
13773                           s5454 = t27_4832.s30
                                t27_4832.s30 = t26_4488.s118
                                t26_4488.s118 = s5454
                              End If
13821                         i5468 = i5468 + i5423 + i5427
                              t26_4488.s76 = Str(i5468)
                              If Len(t26_4488.s76) <> 3 Then
                                t26_4488.s76 = Pad(t26_4488.s76, 3)
                              End If
13911                         If Len(t27_4832.s30) <> 15 Then
                                t27_4832.s30 = Pad(t27_4832.s30, 15)
                              End If
13959                         If Len(t27_4832.s30) <> 15 Then
                                t27_4832.s30 = Pad(t27_4832.s30, 15)
                              End If
14007                         GoTo 17240
                            End If
14013                       If (s65528_ = "3") = 0 Then GoTo 14886
14051                       For i5318 = 18 To 21 Step 1
                              Locate i5318, 1
                              ClrEOL
                            Next
14137                       l5462 = Val(Trim(t26_4488.s62))
                            If l5462 = 0 Then
                              Locate 18, 20
                              Print "@09@You Don't Have any Gold! Get outa Here!"
                              Delay 1
                              GoTo 7829
                            End If
14202                       Locate 18, 20
                            s5454 = InputMask("@09@Amount of Deposit@08@: @XX@", "9999999", "", 1213417543)
                            l5458 = Val(Trim(s5454))
                            If (l5458 > Val(Trim(t26_4488.s62))) = 0 Then GoTo 14417
14301                       For i5318 = 18 To 21 Step 1
                              Locate i5318, 1
                              ClrEOL
                            Next
14387                       Locate 18, 20
                            Print "@09@What are you tryin' to do?!? You don't have that much!"
                            Delay 1
                          Loop
14417                     If (t27_4832.l45 + l5458 > 9999999) = 0 Then GoTo 14589
14467                     For i5318 = 18 To 21 Step 1
                            Locate i5318, 1
                            ClrEOL
                          Next
14553                     Locate 18, 20
                          Print "@09@Deposit would put you @0F@OVER @09@the maximum banked limit"
                          Delay 1
                        Loop
                        GoTo 14880
14589
14610                   For i5318 = 18 To 21 Step 1
                          Locate i5318, 1
                          ClrEOL
                        Next
14696                   Locate 18, 15
                        Print "@09@Thank You for your deposit of " + "@0F@" + Trim(s5454) + " @0E@Gold@09@."
                        Locate 19, 15
                        Print "@09@The employees of Heathen's Bank appreciate your business!"
                        t27_4832.l45 = t27_4832.l45 + l5458
                        l5462 = Val(Trim(t26_4488.s62))
                        l5462 = l5462 - l5458
                        t26_4488.s62 = Str(l5462)
                        If Len(t26_4488.s62) <> 7 Then
                          t26_4488.s62 = Pad(t26_4488.s62, 7)
                        End If
14880                   GoTo 17240
14886                   If (s65528_ = "4") = 0 Then GoTo 15656
14924                   For i5318 = 18 To 21 Step 1
                          Locate i5318, 1
                          ClrEOL
                        Next
15010                   If t26_4488.i101 = 0 Then
                          Locate 18, 20
                          Print "@09@You Don't Have any Combat Fights Left!!!"
                          Delay 1
                          GoTo 7829
                        End If
15058                   Locate 18, 20
                        s5454 = InputMask("@09@Amount of Deposit@08@: @XX@", "99", "", 1213417543)
                        l5458 = Val(Trim(s5454))
                        If (l5458 > t26_4488.i101) = 0 Then GoTo 15266
15150                   For i5318 = 18 To 21 Step 1
                          Locate i5318, 1
                          ClrEOL
                        Next
15236                   Locate 18, 15
                        Print "@09@What are you tryin' to do?!? You don't have that much!"
                        Delay 1
                      Loop
15266                 If (t27_4832.i49 + l5458 > i5448) = 0 Then GoTo 15438
15316                 For i5318 = 18 To 21 Step 1
                        Locate i5318, 1
                        ClrEOL
                      Next
15402                 Locate 18, 15
                      Print "@09@Deposit would put you @0F@OVER @09@the maximum banked limit"
                      Delay 1
                    Loop
                    GoTo 15650
15438
15459               For i5318 = 18 To 21 Step 1
                      Locate i5318, 1
                      ClrEOL
                    Next
15545               Locate 18, 15
                    Print "@09@Thank You for your deposit of " + "@0F@" + Trim(s5454) + " @09@fights."
                    Locate 19, 15
                    Print "@09@The employees of Heathen's Bank appreciate your business!"
                    t27_4832.i49 = t27_4832.i49 + l5458
                    t26_4488.i101 = t26_4488.i101 - l5458
15650               GoTo 17240
15656               If (s65528_ = "5") = 0 Then GoTo 16426
15694               For i5318 = 18 To 21 Step 1
                      Locate i5318, 1
                      ClrEOL
                    Next
15780               If t26_4488.i103 = 0 Then
                      Locate 18, 20
                      Print "@09@You Don't Have any Cavern Fights Left!!!"
                      Delay 1
                      GoTo 7829
                    End If
15828               Locate 18, 20
                    s5454 = InputMask("@09@Amount of Deposit@08@: @XX@", "99", "", 1213417543)
                    l5458 = Val(Trim(s5454))
                    If (l5458 > t26_4488.i103) = 0 Then GoTo 16036
15920               For i5318 = 18 To 21 Step 1
                      Locate i5318, 1
                      ClrEOL
                    Next
16006               Locate 18, 15
                    Print "@09@What are you tryin' to do?!? You don't have that much!"
                    Delay 1
                  Loop
16036             If (t27_4832.i51 + l5458 > i5450) = 0 Then GoTo 16208
16086             For i5318 = 18 To 21 Step 1
                    Locate i5318, 1
                    ClrEOL
                  Next
16172             Locate 18, 15
                  Print "@09@Deposit would put you @0F@OVER @09@the maximum banked limit"
                  Delay 1
                Loop
                GoTo 16420
16208
16229           For i5318 = 18 To 21 Step 1
                  Locate i5318, 1
                  ClrEOL
                Next
16315           Locate 18, 15
                Print "@09@Thank You for your deposit of " + "@0F@" + Trim(s5454) + " @09@fights."
                Locate 19, 15
                Print "@09@The employees of Heathen's Bank appreciate your business!"
                t27_4832.i51 = t27_4832.i51 + l5458
                t26_4488.i103 = t26_4488.i103 - l5458
16420           GoTo 17240
16426           If (s65528_ = "6") = 0 Then GoTo 17199
16464           For i5318 = 18 To 21 Step 1
                  Locate i5318, 1
                  ClrEOL
                Next
16550           If t26_4488.i105 = 0 Then
                  Locate 18, 20
                  Print "@09@You Don't Have any Player Fights Left!!!"
                  Delay 1
                  GoTo 7829
                End If
16598           Locate 18, 20
                s5454 = InputMask("@09@Amount of Deposit@08@: @XX@", "99", "", 1213417543)
                l5458 = Val(Trim(s5454))
                If (l5458 > t26_4488.i105) = 0 Then GoTo 16809
16690           For i5318 = 18 To 21 Step 1
                  Locate i5318, 1
                  ClrEOL
                Next
16776           Locate 18, 15
                Print "@09@What are you tryin' to do?!? You don't have that much!";
                ClrEOL
                Delay 1
              Loop
16809         If (t27_4832.i53 + l5458 > i5452) = 0 Then GoTo 16981
16859         For i5318 = 18 To 21 Step 1
                Locate i5318, 1
                ClrEOL
              Next
16945         Locate 18, 15
              Print "@09@Deposit would put you @0F@OVER @09@the maximum banked limit"
              Delay 1
            Loop
            GoTo 17193
16981
17002       For i5318 = 18 To 21 Step 1
              Locate i5318, 1
              ClrEOL
            Next
17088       Locate 18, 15
            Print "@09@Thank You for your deposit of " + "@0F@" + Trim(s5454) + " @09@fights."
            Locate 19, 15
            Print "@09@The employees of Heathen's Bank appreciate your business!"
            t27_4832.i53 = t27_4832.i53 + l5458
            t26_4488.i105 = t26_4488.i105 - l5458
17193       GoTo 17240
17199       If (s65528_ = "Q") = 0 Then GoTo 17240
            Sub18170
            Sub18245
          Loop
          GoTo 17240
17240     Sub18170
          Sub18245
          Delay 1
        Loop
17266 Loop
      End

'! Called 1 time
      Function Func17333(l65534 As Long, l65532 As Long) As Integer
        Dim l65467 As Long
        Dim i65471 As Integer
        Dim l65473 As Long
        Dim i65477 As Integer
        Dim s65483 As String*7
        Dim s65490 As String*30
        Dim l65520 As Long
        Dim l65524 As Long
        Dim i65528 As Integer

        s65490 = UCase(MakeWild.BBSName)
        s65490 = Trim(s65490)
        l65524 = 0
17410   For i65528 = 1 To Len(s65490) Step 1
          l65524 = l65524 + Asc(Mid(s65490, i65528, 1))
        Next
17514   s65483 = UCase(MakeWild.RegString)
        s65483 = Trim(s65483)
        l65520 = 0
17583   For i65528 = 1 To Len(s65483) Step 1
          l65520 = l65520 + Asc(Mid(s65483, i65528, 1))
        Next
17687   l65520 = l65520 + l65524
        l65520 = l65520 * 7
        l65520 = l65520 * l65532
        l65520 = l65520 + l65532
        If l65520 = l65534 Then
          Func17333 = - 1
        Else
17791     Func17333 = 0
        End If
17797
      End Function

'! Called 1 time
      Sub Sub17805
        s5327 = "@02@" + Trim(t26_4488.s15) + " @09@went for a checkup at @02@T@09@hievin @02@H@09@eathen's!"
        s5331 = "@09@Hmmmmm I wonder if he'll fix what ails him?  Hope so!"
        Open s4463 + "today.txt" For Append As i4486
        Print #i4486, s5327
        Print #i4486, s5331
        Print #i4486, s5323
        Close i4486
      End Sub

'! Called 1 time
      Sub Sub17930
        s5327 = "@02@" + Trim(t26_4488.s15) + " @09@passed their physical at @02@T@09@hieven @02@H@09@eathen's!"
        s5331 = "@09@I bet " + "@02@" + Trim(t26_4488.s15) + " @09@must be in pretty good shape!"
        Open s4463 + "today.txt" For Append As i4486
        Print #i4486, s5327
        Print #i4486, s5331
        Print #i4486, s5323
        Close i4486
      End Sub

'! Called 17 times
      Sub Sub18084
        Locate 23, 25
        Print "@0D@Stroke a @0F@KEY, @0D@Warrior!@0A@ "
        Do
18109     s5322 = InKey(1213417543)
          If UCase(s5322) > "" Then
            GoTo 18157
          End If
18151   Loop
18157   Locate 23, 1
        ClrEOL
      End Sub

'! Called 14 times
      Sub Sub18170
        i4486 = FreeFile
        Open s4463 + "lachuser.dat" For Random As i4486 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
        Put i4486, i4480, t26_4488 '! 172 bytes
        Close i4486
      End Sub

'! Called 7 times
      Sub Sub18245
        i4486 = FreeFile
        Open ProgPath + "thfhbank.dat" For Random As i4486 Len = 63 '! This value should probably be replaced with a "SizeOf" expression
        Put i4486, i4482, t27_4832 '! 63 bytes
        Close i4486
      End Sub

'! Called 1 time
      Sub Sub18319
        Dim l65512 As Long
        Dim i65516 As Integer
        Dim l65518 As Long
        Dim i65522 As Integer
        Dim l65524 As Long
        Dim i65528 As Integer
        Dim l65530 As Long
        Dim i65534 As Integer

        Cls
        MorePrompt(0)
        Locate 8, 17
        Print "  @84@UNREGISTERED PROGRAM - PLEASE REGISTER"
        Locate 9, 17
        Print "@0D@┌@05@───────────────────@0D@┬@05@────────────────────@0D@┐"
        Locate 11, 17
        Print "@0D@└@05@───────────────────@0D@┴@05@────────────────────@0D@┘"
18405   For i5320 = 17 To 27 Step 1
          Locate 10, i5320
          Print "@0D@░"
          Delay 0.1
        Next
18505
18526   For i5320 = 28 To 38 Step 1
          Locate 10, i5320
          Print "@0D@▒"
          Delay 0.1
        Next
18626
18647   For i5320 = 39 To 49 Step 1
          Locate 10, i5320
          Print "@0D@▓"
          Delay 0.1
        Next
18747
18768   For i5320 = 50 To 58 Step 1
          Locate 10, i5320
          Print "@0D@█"
          Delay 0.1
        Next
18868
      End Sub

'! Called 3 times
      Sub Sub18871
        Sub17930
        Sub18170
        If s4479 = "N" Then
          Sub18319
        End If
18917   End
      End Sub

'! Called 11 times
      Sub Sub18921
        Cls
        MorePrompt(0)
        DisplayTextFile(ProgPath + "thbg1.bbs")
      End Sub

'! Called 5 times
      Sub Sub18955
        Dim l65530 As Long
        Dim i65534 As Integer

        s5366 = "N"
18996   For i5371 = 15 To 23 Step 1
          Locate i5371, 1
          ClrEOL
        Next
19082   If r5347 <= r5341 Then
          r5341 = r5341 - r5347
          t26_4488.s62 = Str(r5341)
          If Len(t26_4488.s62) < 7 Then
            t26_4488.s62 = Pad(t26_4488.s62, 7)
          End If
19184     Sub18170
          Locate 19, 20
          Print "@05@You Pay Thievin' the " + "@0D@" + Str(r5347) + " @05@Gold."
          s5366 = "Y"
          Delay 2
        Else
19256     Locate 19, 12
          Print "@05@What Kind of Dead Beat are you? And @85@NO@05@ I won't take a check!"
          Locate 20, 17
          Print "@05@Go and get some gold and come back when ya can pay!"
          Delay 2
        End If
19296   Locate 19, 1
        ClrEOL
        Locate 20, 1
        ClrEOL
      End Sub

'! Called 1 time
      Sub Sub19319
        i4486 = FreeFile
        Open s4463 + "lachuser.dat" For Random As i4486 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
        s5389 = "N"
        i4480 = 0
        Do
19382     i4480 = i4480 + 1
          Get i4486, i4480, t28_4660 '! 172 bytes
          If InStr(UCase(t28_4660.s15), UCase(Pad(s5374, 15))) Then
            s5389 = "Y"
            GoTo 19483
          End If
19467   Loop While Not EOF(i4486)
19483   Close i4486
      End Sub

'! Called 1 time
      Sub Sub19494
        Dim s65528 As String
        Dim s65532 As String

        If Exists(s4463 + "lachex" + s5397 + ".dat") Then
          i4486 = FreeFile
          Open s4463 + "lachex" + s5397 + ".dat" For Input As i4486
          Input #i4486, s65532
          Close i4486
          s65528 = Left(s65532, 15)
          If UCase(s65528) = UCase(t26_4488.s0) Then
            GoTo 19776
          Else
19653       GoTo 19665
          End If
19659   Else
19665     Cls
          MorePrompt(0)
          Locate 3, 12
          Print "@84@ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!!"
          Locate 5, 12
          Print "@09@This Program can only be run from a REGISTERED COPY"
          Locate 6, 12
          Print "of Lachrymator. This program cannot be run on it own...."
          Locate 7, 12
          Print "@09@According to internal file verification routines..."
          Locate 8, 12
          Print "@09@The installed copy of Lachrymator is NOT REGISTERED!"
          Locate 9, 12
          Print "@09@PLEASE ask your SysOp to Register Lachrymator..Thanks!"
        End If
19769   Sub18084
        End
19776
      End Sub

'! Called 2 times
      Sub Sub19787
        If t26_4488.s40 = "YOUR FISTS     " Then
          i5421 = 0
        End If
19825   If t26_4488.s40 = t29_4895.s0 Then
          i5421 = - 10
        End If
19858   If t26_4488.s40 = t29_4895.s15 Then
          i5421 = - 20
        End If
19895   If t26_4488.s40 = t29_4895.s30 Then
          i5421 = - 30
        End If
19932   If t26_4488.s40 = t29_4895.s45 Then
          i5421 = - 40
        End If
19969   If t26_4488.s40 = t29_4895.s60 Then
          i5421 = - 50
        End If
20006   If t26_4488.s40 = t29_4895.s75 Then
          i5421 = - 60
        End If
20043   If t26_4488.s40 = t29_4895.s90 Then
          i5421 = - 70
        End If
20080   If t26_4488.s40 = t29_4895.s105 Then
          i5421 = - 80
        End If
20117   If t26_4488.s40 = t29_4895.s120 Then
          i5421 = - 90
        End If
20154   If t26_4488.s40 = t29_4895.s135 Then
          i5421 = - 110
        End If
20191   If t26_4488.s40 = t29_4895.s150 Then
          i5421 = - 150
        End If
20228   If t26_4488.s40 = t29_4895.s165 Then
          i5421 = - 250
        End If
20265   If t27_4832.s15 = "NONE BANKED    " Then
          i5425 = 0
        End If
20294   If t27_4832.s15 = t29_4895.s0 Then
          i5425 = 10
        End If
20325   If t27_4832.s15 = t29_4895.s15 Then
          i5425 = 20
        End If
20360   If t27_4832.s15 = t29_4895.s30 Then
          i5425 = 30
        End If
20395   If t27_4832.s15 = t29_4895.s45 Then
          i5425 = 40
        End If
20430   If t27_4832.s15 = t29_4895.s60 Then
          i5425 = 50
        End If
20465   If t27_4832.s15 = t29_4895.s75 Then
          i5425 = 60
        End If
20500   If t27_4832.s15 = t29_4895.s90 Then
          i5425 = 70
        End If
20535   If t27_4832.s15 = t29_4895.s105 Then
          i5425 = 80
        End If
20570   If t27_4832.s15 = t29_4895.s120 Then
          i5425 = 90
        End If
20605   If t27_4832.s15 = t29_4895.s135 Then
          i5425 = 110
        End If
20640   If t27_4832.s15 = t29_4895.s150 Then
          i5425 = 150
        End If
20675   If t27_4832.s15 = t29_4895.s165 Then
          i5425 = 250
        End If
20710
      End Sub

'! Called 2 times
      Sub Sub20713
        If t26_4488.s118 = "BIRTHDAY SUIT  " Then
          i5423 = 0
        End If
20751   If t26_4488.s118 = t30_5075.s0 Then
          i5423 = - 10
        End If
20784   If t26_4488.s118 = t30_5075.s15 Then
          i5423 = - 20
        End If
20821   If t26_4488.s118 = t30_5075.s30 Then
          i5423 = - 30
        End If
20858   If t26_4488.s118 = t30_5075.s45 Then
          i5423 = - 40
        End If
20895   If t26_4488.s118 = t30_5075.s60 Then
          i5423 = - 50
        End If
20932   If t26_4488.s118 = t30_5075.s75 Then
          i5423 = - 60
        End If
20969   If t26_4488.s118 = t30_5075.s90 Then
          i5423 = - 70
        End If
21006   If t26_4488.s118 = t30_5075.s105 Then
          i5423 = - 80
        End If
21043   If t26_4488.s118 = t30_5075.s120 Then
          i5423 = - 90
        End If
21080   If t26_4488.s118 = t30_5075.s135 Then
          i5423 = - 100
        End If
21117   If t26_4488.s118 = t30_5075.s150 Then
          i5423 = - 110
        End If
21154   If t26_4488.s118 = t30_5075.s165 Then
          i5423 = - 120
        End If
21191   If t27_4832.s30 = "NONE BANKED    " Then
          i5427 = 0
        End If
21220   If t27_4832.s30 = t30_5075.s0 Then
          i5427 = 10
        End If
21251   If t27_4832.s30 = t30_5075.s15 Then
          i5427 = 20
        End If
21286   If t27_4832.s30 = t30_5075.s30 Then
          i5427 = 30
        End If
21321   If t27_4832.s30 = t30_5075.s45 Then
          i5427 = 40
        End If
21356   If t27_4832.s30 = t30_5075.s60 Then
          i5427 = 50
        End If
21391   If t27_4832.s30 = t30_5075.s75 Then
          i5427 = 60
        End If
21426   If t27_4832.s30 = t30_5075.s90 Then
          i5427 = 70
        End If
21461   If t27_4832.s30 = t30_5075.s105 Then
          i5427 = 80
        End If
21496   If t27_4832.s30 = t30_5075.s120 Then
          i5427 = 90
        End If
21531   If t27_4832.s30 = t30_5075.s135 Then
          i5427 = 100
        End If
21566   If t27_4832.s30 = t30_5075.s150 Then
          i5427 = 110
        End If
21601   If t27_4832.s30 = t30_5075.s165 Then
          i5427 = 120
        End If
21636
      End Sub

'! Called 1 time
      Sub Sub21639
        Dim i65348 As Integer
        Dim i65350 As Integer
        Dim i65352 As Integer
        Dim i65354 As Integer
        Dim s65528 As String

        Cls
        Locate 9, 1
        Print "@8A@Processing/Packing Files....";
        ClrEOL
        Delay 0.5
        i65348 = 0
        s65528 = "@0D@Packing Data Base@07@."
        i65352 = 1
        i65350 = 1
        If Exists(ProgPath + "thfhbank.dat") Then
          CopyFile(ProgPath + "thfhbank.dat", ProgPath + "thfhbank.pak")
          Del ProgPath + "thfhbank.dat"
        End If
21763   i65354 = FreeFile + 1
        Open ProgPath + "thfhbank.pak" For Random As i4486 Len = 63 '! This value should probably be replaced with a "SizeOf" expression
        Open ProgPath + "thfhbank.dat" For Random As i65354 Len = 63 '! This value should probably be replaced with a "SizeOf" expression
        MorePrompt(0)
        Do
21836     Locate 9, 1
          s65528 = s65528 + "."
          Print s65528
          Get i4486, i65352, t27_4832 '! 63 bytes
          If UCase(Trim(t27_4832.s0)) = "FREE RECORD" Then
            i65348 = i65348 + 1
            GoTo 21967
          Else
21935       Put i65354, i65350, t27_4832 '! 63 bytes
            i65350 = i65350 + 1
          End If
21967     i65352 = i65352 + 1
        Loop While Not EOF(i4486)
        Locate 9, 1
        Print "";
        ClrEOL
        Print
        Locate 9, 1
        Print "@0A@Packing done.....@08@(Removed "; i65348; " records)";
        ClrEOL
        Close i4486
        Close i65354
        Sub18084
        Del ProgPath + "thfhbank.pak"
      End Sub